home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / comm / dlscr.zip / KCISDL.T < prev    next >
Text File  |  1987-11-10  |  832b  |  26 lines
  1.     :: This script downloads a file after it is listed
  2.     :: by the Compuserve SIG "bro" command.  Enable this with:
  3.     :: set f3 "@source kcisdl.t"
  4.     :: Then "bro" and at each SIG download prompt, F3 grabs the file.
  5.     :: Note - to "clean up" the display change the "pat 1i" to "pat 1"
  6.     ::  and likewise the line below it, by delaying YAM's responses.
  7.     ::
  8.     if !h^\[ echo "Can't find Project Programmer Number"; return
  9.     ss yf "^[^     /]+"
  10.     setc s0 "\L%z0"
  11.     if f%s0 echo "%s0 Exists: No Action taken."; return
  12.     split y "     " "     " "     "
  13.     echo "File name is %s0"
  14.     put "\025dow %s0/PRO:B\r"
  15.     pat 1i "Protocol Menu"
  16.     pat 2i "\nFile name"
  17.     pat 3l "Unknown pro"
  18.     wait -f20
  19.     if 3 put "\025dow %s0/PRO:B\r";  wait -f20
  20.     if 1 put "\0252\r"; wait -f20        : tell them B potocol
  21.     if 2 put "\025%s0\r"
  22.     pat
  23.     ena -C
  24.     estimate %z2
  25.     return
  26.